{-# OPTIONS -Wall #-}

-----------------------------------------------------------------------------
-- |
-- Module      :  DirectoryScript.Tools.VersionNumbers
-- Copyright   :  (c) Stephen Peter Tetley 2012
-- License     :  BSD3
--
-- Maintainer  :  stephen.tetley@gmail.com
-- Stability   :  experimental
-- Portability :  to be determined
--
-- Version number.
--
-----------------------------------------------------------------------------


module DirectoryScript.Tools.VersionNumbers
  (

    Version3
  , versionString3

  , difftop_version


  ) where

import Numeric

type Version3 = (Int,Int,Int)



versionString3 :: Version3 -> String
versionString3 (i,j,k) = 
    ($ []) $ showInt i . showChar '.' . showInt j . showChar '.' . showInt k
                



-- | difftop version number.
--
-- > (0,1,0)
--
difftop_version :: (Int,Int,Int)
difftop_version = (0,1,0)
